home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / netz / magplip / install < prev    next >
Text File  |  1995-07-30  |  4KB  |  143 lines
  1. ;
  2. ; $VER: install 34.1 (22 Jul 1995)
  3. ;
  4. ; Installer script for magPLIP package.
  5. ;
  6. ; (C) Copyright 1995 Marius Gröger
  7. ;     All Rights Reserved.
  8. ;
  9. ; $HISTORY:
  10. ;
  11. ; 30 Jul 1995 : 034.001 :  initial
  12. ;
  13.  
  14. (set #cpu           (database "cpu"))
  15. (set #level         @user-level)
  16. (set #device        "magplip.device")
  17. (set #config        "magPLIP.config")
  18. (set #helpfile      "magPLIP.guide")
  19. (set #more          "RUN SYS:Utilities/More")
  20. (set #install-notes "\"Installation Notes\"")
  21.  
  22. ; -------------------------- Installation mode ---------------------------
  23.  
  24. ; (The installer documentation says not to use this call
  25. ; final distribtions, but I know no way to let the next decision
  26. ; popping up in novice mode. If you do, please mail to
  27. ; mag@sysgo.de. Thanks.)
  28. (user 2)
  29. (set mode
  30.      (askoptions
  31.          (prompt "Which parts should be installed ?")
  32.          (choices "magPLIP device driver" "AmigaGuide® documentation")
  33.          (help @askoptions-help)
  34.      )
  35. )
  36. (user #level)
  37.  
  38. (set #installdevice (IN mode 0))
  39. (set #installguide (IN mode 1))
  40.  
  41. ; -------------------------- Installtion setup ---------------------------
  42.  
  43. (if #installdevice
  44.    (
  45.       (set #devicedir
  46.           (askdir
  47.                   (prompt "Please locate the directory for SANA II device drivers:")
  48.                   (help @askdir-help)
  49.                   (default "AmiTCP:DEVS/Networks")
  50.           )
  51.       )
  52.       (set #configdir
  53.           (askdir
  54.                   (prompt "Please locate the directory for SANA II configurations:")
  55.                   (help @askdir-help)
  56.                   (default "ENV:Sana2")
  57.           )
  58.       )
  59.    )
  60. )
  61.  
  62. (if #installguide
  63.    (set helpdir
  64.            (askdir
  65.                    (prompt "Please locate the directory for AmigaGuide®-Documents:")
  66.                    (help (cat "   Select here the directory where you keep your "\
  67.                               "AmigaGuide® online help documents.\n\n"
  68.                                @askdir-help
  69.                          )
  70.                    )
  71.                    (default "HELP:english")
  72.            )
  73.    )
  74. )
  75.  
  76. ; ------------------------- Device Installation --------------------------
  77.  
  78. (if #installdevice
  79.    (
  80.       (set #proc
  81.         (askchoice
  82.            (prompt (cat "There are diffent versions of \"" #device "\", each one optimized "
  83.                         "for a specific CPU type. Please select one: "))
  84.            (choices  "MC68000"
  85.                      "MC68020"
  86.                      "MC68040"
  87.            )
  88.            (help (cat "  Select here the CPU type that is installed in your system. "
  89.                  "\n\n  Currently, this is a MC" #cpu ".\n\n  If you select a certain CPU type "
  90.                  "in the choice box, \"" #device "\" will run on any CPU which "
  91.                  "type is higher or equal to the selection. However, it won't "
  92.                  "run on a system equipped with a lower type.\n\n"
  93.                  @askchoice-help)
  94.            )
  95.            (default 0)
  96.         )
  97.       )
  98.  
  99.       (copylib
  100.          (prompt (cat "Copying the device"))
  101.          (help @copylib-help)
  102.          (source (cat (tackon "DEVS/Networks" #device)
  103.                     (if (= 0 #proc) ".000")
  104.                     (if (= 1 #proc) ".020")
  105.                     (if (= 2 #proc) ".040")
  106.          ))
  107.          (dest #devicedir)
  108.          (newname #device)
  109.          (confirm)
  110.       )
  111.       (copyfiles
  112.          (prompt (cat "Copying the configuration file"))
  113.          (help @copylib-help)
  114.          (source (tackon "ENV/Sana2" #config))
  115.          (dest #configdir)
  116.          (confirm)
  117.       )
  118.    )
  119. )
  120.  
  121. ; ------------------------- Guide Installation --------------------------
  122.  
  123. ; install AmigaGuide file
  124. (if #installguide
  125.    (
  126.       (copyfiles
  127.               (prompt "Copying AmigaGuide file")
  128.               (help @copyfiles-help)
  129.               (source "help")
  130.               (dest helpdir)
  131.               (pattern (cat #helpfile "(%|.info)"))
  132.               (confirm)
  133.       )
  134.    )
  135. )
  136.  
  137. ; --------------------- Display Installation Notes -----------------------
  138.  
  139. (if (OR #installclient #installserver)
  140.    (run #more #install-notes)
  141. )
  142.  
  143.